home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00068_Options button on LHS of bar.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  1.1 KB  |  59 lines
  1. property pSpr, pOrigMember, pRollMember, pDownMember, pTimer, pSupressRoll
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   pOrigMember = pSpr.member
  6.   pRollMember = nextMember(pOrigMember, 1)
  7.   pDownMember = nextMember(pOrigMember, 2)
  8.   setCursor(pSpr, pointingHand())
  9. end
  10.  
  11. on endSprite
  12.   setCursor(pSpr, defaultCursor())
  13. end
  14.  
  15. on mouseUp
  16.   global gRememberIngredient
  17.   replaceDraggingAnything()
  18.   closeAllWindows(1)
  19.   pSpr.member = pOrigMember
  20.   dismissToolTip(1)
  21.   gRememberIngredient = VOID
  22.   updateStage()
  23.   beginPause()
  24.   setCursor(pSpr, waitCursor())
  25.   go("OptionsBar")
  26.   resetCursor()
  27.   setCursor(pSpr, pointingHand())
  28. end
  29.  
  30. on mouseDown me
  31.   replaceDraggingAnything()
  32.   pSupressRoll = 1
  33.   pSpr.member = pDownMember
  34.   clickSound()
  35.   updateStage()
  36. end
  37.  
  38. on mouseEnter me
  39.   rememberActiveBottle()
  40.   pSpr.member = pRollMember
  41.   showToolTip(pSpr, #options)
  42.   pTimer = nowTicks()
  43. end
  44.  
  45. on mouseLeave me
  46.   pSupressRoll = 0
  47.   restoreActiveBottle()
  48.   pSpr.member = pOrigMember
  49.   hideToolTip()
  50. end
  51.  
  52. on mouseWithin
  53.   if tipTickRange(pTimer) and not pSupressRoll then
  54.     forceToolTip(pSpr, #options)
  55.   else
  56.     dismissToolTip()
  57.   end if
  58. end
  59.